The Forest 


ZX Spectrum version, August 1983 


This document is a collection of copies of the original design notes, source code 
print-outs, diagrams and publication informaion for the second published version of 
The Forest. It represents an archive of what was possible in a machine using an 8-bit 
microprocessor (Z80) and only 48 kilobytes of programmable memory. 


My first personal computer was a TRS-80 Model 1 Level II and | have written 
separately (a document similar to this) about how the first version of The Forest was 
written for that and published in March 1983. 


| then bought a Sinclair ZX Spectrum. It also used the Z80 processor, so much of my 
code was immediately transferable. However the Spectrum had a completely 
different way of displaying graphics, and in colour rather than monochrome. It also 
had a rather different flavour of BASIC for the higher level programming. 


The machine had an interpreter for the programming language BASIC. That was 
stored in read-only memory (ROM) which was immediately available when power 
was switched on. Programs could either be typed into the remaining random-access 
memory (RAM) or be loaded from audio cassette tapes. One such program was an 
editor/assembler which made it possible to write additional programs in the Z80 
machine code and save those on audio tape for reloading. 


This version of The Forest was published by Phipps Associates, a company in South 
London. 


The Forest was one of the earliest attempts to make a simulation of a sport: 
orienteering. That is, cross-country navigation on foot with map and compass to visit 
set control points in a planned order. 


My particular innovation was to devise a way to generate limitless terrain from a very 
small amount of program code. The terrain was contoured and had several different 
types of vegetation plus towns and lakes. It had various kinds of point features dotted 
around, such as boulders and ponds. 


Although | demonstrated that detailed terrain could be generated, the display 
hardware in those days was extremely limited. So a version of the program was 
made to output all of the map data as if surveying a real forest. Then the map could 
be drawn and printed just as we did for real orienteering events (1 had been doing 
some of that since 1973). The published program was therefore accompanied by a 
full-colour printed map. This was seen as an advantage because it made it difficult to 
copy the product. People did not have colour printer/copiers in those days either. 


The Z80 is fundamentally an 8-bit processor but with 16-bit memory addressing, 
allowing up to 64 kilobytes of memory. My Spectrum had the full 64kb, comprising 
16kb of ROM plus 48kb of RAM. Some of the 8-bit registers could be programmed as 
pairs to facilitate 16-bit integer arithmetic. 


For The Forest | had no access to any floating-point arithmetic so | had to make 


some interesting design choices in the first, TRS-80, version which | kept for the 
Spectrum version. For the (x, y) position of the orienteer on the map | used 3-byte 
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fixed-point numbers: 2 bytes for the integer part and 1 byte after the decimal point. In 
my design notes it is written as HL.A to use the 16-bit HL register pair and the 8-bit 
accumulator. This enabled the map to have a width and height of 65km before 
repeating but the orienteer could be positioned to 1/256 of a metre. That was 
necessary to allow forward motion on any bearing, using sines and cosines. Which 
raised another point: how to do trigonometry without floating point? The answer 
involved 2 more design choices. Firstly compass bearings were “b-degrees” of which 
| had 256 to a complete circle: one byte’s worth. Bearings therefore had a resolution 
of 360 / 256 or about 1.4 degrees, more than accurate enough for an orienteer 
reading a compass. Then sines and cosines were looked up in a table of byte values, 
each being 128 times the true value and so represented as signed 1-byte integers. 
The table only needed 64 entries because values in the 4 quadrants are simply 
related. Also the table as read from the beginning gave sines but read backwards 
from the end it gave cosines. All to save memory and it worked very well. 


The BASIC ROM had a floating-point calculator using 5-byte numbers (1 byte for the 
exponent). When | got the Melbourne House book of its full disassembly it was made 
clear that the calculator was not designed for speed. It would not have been fast 

enough for my purposes. Remember also that the clock speed was only about 4MHz. 


The maps 


The next 2 pages show the printed orienteering maps which accompanied the 
published program. It has to be admitted that in the first one the contours are not very 
realistic. That was only the map issued for the TRS-80 version. While converting the 
program to run on the Spectrum | developed a much more realistic terrain generator 
which resulted in the second map, “The Complex Forest”. As will be shown in the 
listings this involved substituting a chunk of code in the terrain generator and 
providing a switching mechanism in the BASIC program. There are pages below 
which explain the difference in detail. (The same could be done retrospectively in the 
TRS-80 version if anyone is interested. | have discovered that there are enthusiasts 
still running those machines and resurrecting code such as mine.) 
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Many of the pages in this document are snapshots of my original handwritten notes. 


But later you will see that | have provided most assembler routines as text, to 
facilitate possible reuse. If this typed-in code doesn’t work | think the most likely 
cause will be that | have got addresses wrong in the various EQU lines. | have 
included some pages with memory maps which could be checked against the EQUs. 
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3 New GRAFPRINT 


ORG 65200 3 Position just below UDG. (User-Defined Graphics) 
ADATT: DEFW @ 3 65208 Pointer to display position in attr file 
3 (22528. .23295) 
ADGRA: DEFW @ 3 65202 Pointer to first byte of graphics string 


GSHOW: LD DE,(ADGRA) ; 65204 Point to first byte of graphic 
LD HL,(ADATT) ; 65211 Point to display position in attr file 


G@: PUSH HL 3 Save attr file address 
LD A,H 3 Look at MSB: 
CP 88 3 If < 88 
JR C,OFFSC 3 then off top of screen 
CP 89 3 else if < 89 
JR C,BLK1 3 then in top block of screen 
CP 90 3 else if < 90 
JR C,BLK2 3 then in middle block of screen 
cP 91 3 else if >= 91 


JR NC ,OFFSC 3 then off bottom of screen 
BLK3: LD BC,256@ 3 Offset from bottom attr block to display file 


JR COMMN 3 Join common path 
BLK2: LD  BC,4352 3 Offset from middle attr block to display file 
JR COMMN 3 Join common path 
BLK1: LD BC,6144 3 Offset from top attr block to display file 
COMMN: LD A, (DE) 3 Get 1st byte of character, the attribute code 
LD (HL),A 3 Set attributes for this character 
AND A 3 Clear carry 
SBC HL,BC 3 Point to corresponding position in display file 
INC DE 3 Point to first pixel byte this character 
LD B,8 3 Count 8 pixel bytes 
GLOOP: LD A, (DE) 3 Get pixel byte and 
LD  (HL),A 3 display it 
DEC BC 3 If 8 bytes done for this character 
JR Z,EXITL 3 then exit loop 
INC H 3 Point to next display byte this char, 256 forward 
INC DE 3 Point to next pixel byte in character 
JR GLOOP 3 Next pixel byte 
OFFSC: LD B,8 3 Off screen: loop to skip to 8th pixel this char 
OLOOP: INC DE 
DINZ OLOOP 
EXITL: POP HL 3 Restore pointer to attr file 
INC DE 3 Point to last byte this char, the offset to next 
in attr file 
LD A, (DE) 3 Get offset 
CP @ 3 If zero 
RET Z 3 then end of string 
LD B,@ 3 Clear B 
cP 128 3 If offset < @ 
JR C,POSOK 
DEC B 3 then B = 255, ie extend sign for BC 
POSOK: LD C,A 3 BC = (signed) offset 
ADD HL,BC 3; Add offset to attr file ptr to get new display posn 
INC DE 3 Point to 1st byte of next character 
JR G@ 3 Do next character 
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ORG 63850 
SDF: EQU 16384 
SAF: EQU 22528 


ATTR@: DEF 
ZERO: DEF 


CLS: LD BC,32*24 


LD 
LD 
CAL 


LD BC,32*192 


LD 
LD 
CLOOP: LDI 
DEC 
JP 
RET 


ORG 
ATTR: DEF 
ADATT: DEF 
ADTEX: DEF 


TSHOW: LD DE, (ADTEX) 
LD HL, (ADATT) 


TO: PUS 
LD 
cP 
JR 
cP 
JR 
cP 
JR 
cP 
JR 
LD 
JR 

BLK2: LD 
JR 

BLK1: LD 

COMMN: LD 
cP 
JR 
LD 
LD 
AND 
SBC 
PUS 
EX 
LD 
LD 
ADD 
ADD 


B @ 
BQ 


DE, SAF 
HL, ATTRO 
L CLOOP 


DE, SDF 
HL, ZERO 


HL 
PE,CLOOP 


63745 
BQ 
W @ 
W @ 


H HL 
A,H 
88 
C,OFFSC 
89 
C,BLK1 
90 
C,BLK2 
91 
NC, OFFSC 
BC, 256 
COMMN 
BC,4352 
COMMN 
BC, 6144 
A, (DE) 
Q 
Z,ENDT 
A, (ATTR) 
(HL) ,A 
A 
HL, BC 
H DE 
DE,HL 
L, (HL) 
H,@ 
HL,HL 
HL,HL 


3 


BS) 


BS) 


B) 


CLEAR SCREEN 

Start of display file 
Start of attribute file 
Attributes byte for cleared screen: poke a value 
Value for display file 


24 lines to set in attr file 


Destination for move 
Source for move 


Move 


192 lines to clear in display file 


Destination for move 
Source for move 


Move 


Keep pointing to single source byte 


Repeat until BC = @ 


TEXTPRINT 


Attributes to be used for string 
Pointer to display position in attr file 
; Pointer to 1st byte of text string 


Point to string 
Point to attr file 
attr file pointer 


Save 
Look 
If < 
then 
else 
then 
else 
then 
else 
then 


Offset to display file, bottom block 
Offset to display file, middle block 


Offset to display file, top block 
Get ASCII byte from string 


at 
88 
off 
if 
in 
if 
in 
if 
off 


If null 
then end of string 


Get attribute byte for string 
Set attributes for this character 


MSB 


top of screen 

< 89 

top block 

< 98 

middle block 

>= 91 

bottom of screen 


Clear carry 


Offset pointer to display file 


Save string pointer 
DE = display file pointer 
Get ASCII code byte 
HL = ASCII code byte 
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ADD HL,HL 

LD BC,15360 

ADD HL, BC 

LD B,8 
TLOOP: LD A, (HL) 

LD (DE),A 

DEC B 

JR Z,EXITL 

INC D 
forward 

INC HL 

JR TLOOP 
EXITL: POP DE 
OFFSC: INC DE 

POP HL 

INC HL 

JR T@ 
ENDT: POP HL 

RET 


3 HL = 8 * ASCII code byte 

3 Base addr of std char set in ROM (=15616 - 32 * 8) 
3 HL points to 1st pixel byte in ROM for ASCII char 
3 Count 8 pixel bytes 


3 Get pixel byte 


3 Display it 


3 If 8 bytes displayed 
3 then character done 
3 Point to next display file position this char, 256 


3 Point to next pixel byte 


3 Next byte 


3 Restore string pointer 

3 Next char in string 

3 Restore attr file pointer 

3 Next attr file display position 


3 Next character 
3 Tidy the stack 


Format for stored text string: 1 byte ASCII code for each character 
followed by zero byte to show end of string. 


ORG 63200 
Te: EQU 63757 
Ge: EQU 65210 


CLS: EQU 63852 
ATTRO: EQU 63850 
TATTR: EQU 63745 


3 INIT (Title page & initialise global data) 


TITLE: DEFM "The Forest" 


DEFB @ 


COPYR: DEFM "Copyright © Graham T Relf 1983 " 3; 32 characters 


DISTR: DEFS 32,32 


PKEY: DEFM "Press any key to start" 


DEFB @ 

INIT: LD A,12 
LD (ATTRQ),A 
CALL CLS 
LD A,15 
LD (TATTR),A 
LD DE,TITLE 
LD HL, 23168 
CALL T@ 
LD DE,COPYR 
LD HL, 23200 
CALL T@ 
LD DE, 64600 
LD HL, 23138 
CALL G@ 
LD DE, 64400 
LD HL,23141 
CALL G@ 


3 Spare line for distributor name 


3 Paper blue, ink green 


3 Paper blue, ink white 
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Line 20, column @ 


Line 21, column @ 
3 lines just run on 


3 GRUN 

3 Line 18, column 2 
3 Display tall tree 
; GFIR 

3 Line 19, column 5 
3 Display short tree 
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LD DE, 64420 ; GFIR 


LD HL,23144 3 Line 19, column 8 
CALL G@ 
LD DE,64100 ; GMOOR 
LD HL,23147 3 Line 19, columni1 
CALL G@ 3 Display moor symbol 
LD DE,63900 3 GLAKE 
LD HL,23182 3 Line 2@, column 14 
CALL G@ 
LD DE,63900 3 GLAKE 
LD HL,23185 3 Line 2@, column 17 
CALL G@ 
LD DE,64200 3 GTOWN 
LD HL,23156 3 Line 19, column2@ 
CALL G@ 
LD DE,644e0 ; GFIR 
LD HL,23159 3 Line 19, column 23 
CALL G@ 
LD DE,640e0 ; GFLAG 
LD HL,23162 3 Line 19, column 26 
CALL G@ 
LD DE,64600 3 GRUN 
LD HL,23165 3 Line 19, column 29 
CALL G@ 
LD HL,CONST 
LD DE,VARS 
LD BC,NCONS 
LDIR 3 Set first NCONS variables to values in CONST 
RET 

VARS: DEFS 64 

CONST: DEFB 64 3 Initial values: bearing 90 degrees = 64b 
DEFB @ 3 sin b = @ 
DEFB 128 3 cos b= 1 (times 128) 
DEFB @ 3 Observer's start x = 1366.0 
DEFW 1366 
DEFB @ 3 Observer's start y = 2332.0 
DEFW 2332 
DEFS 12 3 12 bytes do not need initialising 
DEFW 1438 3 x of finish 
DEFW 2272 3 y of finish 
DEFB @ 3 Clear the finished flag 

NCONS: EQU 26 3 26 bytes to move for initialisation 
END 
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F7c7 63431 lear dolt- 3 bearing, $255 > ja [see 
63432 winlr dal 5 12PKAn(leaing| — & 
3 ct deft 3123 # cra(learin) 7 apot dol, 34 
tft die; fran [ae 
s bk dle ; boro cnfiges bafis of chaerverd 24 conrlinalé 
b hat def 5 Ligh inbiges 
7 fyb : 
g 7 mi wiles ~ drtervkle 4~ ceocdinall 
4 byl deft : 
bsy4o Sah  delb ; 
1 Ud defy ; [i of a pal 
2 hol del ; 
3 a : 
+ a ei s fale 4- cerdinoe 
Ss hyh deft ; 
6 fhh dof 
2? bh deft i fl — resabb from baight rrabing 
@ ALL deft ; 
4 fhq ofl 
63450 bhg dob, : wwilas — height ak eesvesr 
tc hg ala test, 
2 xf ry 5 = coochinali. of fraiche (entiges) 
+ east M t 
? corm ofl 5 Caan me. fot ‘dingla’” 
% & deftr + Terrain syrd ub deerves ( 2m ina GeS 
9 fly. dale... Tanah 
ba¥eo hear defy 3 beanna be herion poink , p..255 
1 And — dofb + (2B x a (bear) : 
1 cod defi, 5 128 ceo (dbear) 
baal def 5 Inde ly ary fo elit we tts 
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OW etree Hideto Loo widelacamnge 2 
EST = St 2-10 


B A Ae recasued j fe -aced degrees , e tele L255. ee 
woe Mie etotokion proba’ Fibs 7 
Ase” 2 260° 
90° 
1°4062S 
= N25 tos cpacrin belch amohic ay mdbda in 
a Acaphaued ACL : 


| 


a 
+ 
e 
en 


A 
oc 
Ui 


Cx) (~e,4e) 


Se Pl cue antes 


nae [bow 


Sines K coacnes ae leahad a from a table | “ace ae iy 
at aod 14 Acgncd colbg eed vin. angle by bs, c4 ¥ mulliphied by (28. 
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Paste 3 — Screa & cosines ( 

00010 

00020 

00030 

ebst F778 00040 

00 00050 SINTA 
7771 03 00060 
2 06 00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
006640 
00670 
00680 


> > 
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ORG 

DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE: 
DEFE: 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE: 
DEFE: 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 


63060 
FF#76H 


vc 


PRAY eVW ewr -F 


10 


. 
. 


from TRS-BO verdion, ceget for addiceses)- 


MODULE 3 OF <THE FOREST> 


SIN & COS. 3-1 


COPYRIGHT (C) GRAHAM T RELF 26/10/82. 
Te of 127 « ac~ (6) 


i b= B--b¢ bo-dagreee 
(=¢..10°) . 


Quadraat |. 


Reading backuserds ured 


Cote nl - 


7F 00660 (_esiews 9 DERE ——4.27- =e |3 3-2 
77KE 7F 00670 pr) pEFE 427-62 Oaths te Sines, | 
72AF 7F 00680 DEFE -$27--—6h A= ag lo-2sS*). 

0 7F 00690 COSTA _DEFE 127, | 
010101 00700 SINCO LD BC+ 0101H Stoteint goad | 
FECO 00710 cF 192 Date pdest fr A. 
3038 00720 JR NC» QUAD4 | 
FESO 00730 cP 128 
302D 00740 JR NC» QUAD3 
FE40 00750 cP 64 
3021 00760 JR NC» QUADZ2 
217077 00770 QUADi LD HL+SINTA  — Powk te stat of Me . 

1600 00780 LD Dr0 : 

SF 00790 LD ExA DE = bearing’ mod guadiond 

19 00800 ADD HL » DE 

78 90810 LD Ave Stgu of Adm . 

FEFF 00820 cP -1 

7E 00830 LD Ay (HL) Geb sin valua (wb: flaqact effeckd). 

2002 00840 JR NZ»POSSI 

ED44 00850 NEG Conrphtrtok Ahn 

47 00860 POSSIh LD EA Saar ir 8. 

216077 00870 LD HLyCOSTA — Pork herdof table - 

A7 00880 AND A eas cary, 

EDS2 00890 SEC HL » DE potas backurardes (40 (P68 , 

79 00900 LD ArC S tgn of cr = oes(b)) 

FEFF 00910 cr ~1 

7E 00920 LD Ay (HL) Gb cus volun (ne: Hogntt affected). 

2002 00930 JR NZ» FOSCO 

ED44 00940 NEG Conrplenstt cod « 

SF 00950 FOSCO LD EvA 

50 00960 LD DoE Relsm Ai ind heed « 

ce 00970 RET [W~ai, (128-4) 

ED44 00980 QUADZ2 NEG 2nd quadrant : ain (b)= 4d, (128- 

C480 00990 ADD A128 “F pusdonck 

OEFF 01000 LD Cr-1 co SS, 

18D7 01010 JR QuUAD1 ) 

D680 01020 QUAD3 SUE 128 Bek quadrant: sia) =-aén( 7128) 

: OLFFFF 01030 LD ECrOFFFFH 2. cg h conc. of pradennt. 
18D0 01040 JR quaD1 
ED44 01050 QUAD4 NEG 4 + aca (Om tyceeuel 

1 Aw Atn (25 
06FF 01060 LD By-t yee Es ain ll rps 
18CA 01070 JR QUAD1 

01080 END 
00090 TOTAL ERRORS 
COS 77DE ° 

POSSIN 77CF J i 
77 Quadreta : Ke 
77E1 a J 
7 2 by 
77 0 2 

SINCOS 1 5 


atin 


(et on FF) 


ash? = 360° Che 
f = 1° 4067S Minima atlutig : adequate for orittaaring. 
= 90° 
ofl = N°2s Angle letinee. lection eiwks (“@eed’) . 
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Pak 4 — Haigh ties. k fence geatrbinn (nomad free 


auinierinrs a. 
cabeduclion be the or, bid ke ae 
atiches ov “Prackicgl mq, (3), March 82, pe-18-95 
and 5(9) ,SeoF.92, ype 127—130. 

| The facets uscd in Ha ‘normal’ leineler, fully maued’ foc 


|e ff frm 


H = s | 12e- ak (Cazes by) mod 256 -128) | 


vs lig le td Ma boas oot be tal 
R dle alms pil BM Ele of fii ab; aids 
wih nee alll lettin tab “ll ‘A 

The cpralians t gob end 126 ow ha few, ah 
ioc enlace eyes: walliglocakions seid 
PRT 
Daal kes gant By ni 
Ta eee Lona J 
ROE PAT menor , re 
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Height | ternin atteabuts Luneblion for That Force 


ee lh oe ee 


i 


(ai) mod 256 


roabel| nga) vond 156 


— 12%) 
Aa») mok2S6 —128 
-119 --- -=-- 
( 
s 
H= $" ji2e - aha ( (ai + bj y)mod 256 -122) ] 
GS 
_ +. 4a 
3 = 
Cease from 24 37 27 
(13 aloced 04243). 


H, - ees mj mre — 
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| tans) covakry A ice 
| 


___.._ fie, 


Se 
ee pa —em jarcer}] 
ae es 


te be indee a wod-lased Ee | ; ADS (ace Fak 
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_ Mihee ie indeed « Page a a age ads eal 
of cache bile of hd bager part of Ho result axe egearatily added to 6S 
fa gek la tect cad ofl cael ala cn oa 


ies A&O. 


See later for details of how the terrain generator is modified for the improved 
“Complex Forest”. 
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FXH: 
LXH: 
HXH: 
FYH: 
LYH: 
HYH: 
FHH: 
LHH: 
HHH: 
TG: 
TERSY: 
TERRA: 


LAND: 


CNTRY: 


WOOD: 


TRUN: 


THICK: 


ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
CAL 
LD 
LD 
LD 
LD 
LD 
cP 
JR 
LD 
cP 
JR 
XOR 
LD 
LD 
CAL 
LD 
cP 
JR 
LD 
cP 
JR 
CAL 
LD 
cP 
JR 
LD 
cP 
JR 
CAL 
LD 
cP 
JR 
LD 
cP 
JR 
LD 
LD 
JP 
LD 
LD 
JP 


62580 
63440 
FXH 
FXH 
FXH 
FXH 
FXH 
FXH 
FXH 
FXH 
FXH 
FXH + 19 
L HEIGH 

A, (FH) 
(FHH),A 
HL, (LH) 
(LHH) , HL 

A,H 

Q 

NZ, LAND 

A,L 

204 

C, TLAKE 

A 
(FXH),A 
(FYH),A 

L ATTRI 

A, (HH) 

Q 

NZ, CNTRY 

A, (LH) 
15 

C, TTOWN 
L ATTRI 

A, (HH) 

Q 

NZ,WOOD 

A, (LH) 
255 

C,OPEN 

L ATTRI 

A, (HH) 

Q 

NZ, TRUN 

A, (LH) 
255 

C, THICK 

A,@ 
(TERSY),A 
FEATU 

A,2 
(TERSY),A 
FEATU 


t+eeeeettest 


3 TERRA - the original terrain generator 


jLake height + bank 

3;Lake here 

3A = 0 

3Attributes to constant 

jover im cells 

3NB: HEIGH left IX pointing to TABA1 


3Town here 
3NB: Last ATTRI left IX pointing to TABA2 


3NB: Last ATTRI left IX pointing to TABA3 


3;Runnable wood here 


3Thicket here 
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OPEN: 


TMOOR: 


TGRAS: 


TTOWN: 


TLAKE: 


jHeight & attributes 


HEIGH: 
ATTRI: 


HLOO1: 


NORM1: 


CALL ATTRI 
LD A, (HH) 
CP @ 


JR NZ, TMOOR 


LD A, (LH) 
CP 255 

JR C,TGRAS 
LD A,4 


LD (TERSY),A 


JP FEATU 
LD A,6 


LD (TERSY),A 


JP FEATU 
LD A,8 


LD (TERSY),A 


JP FEATU 
LD A,200 
LD (LHH),A 
XOR A 

LD (FHH),A 
LD A,10 


LD (TERSY),A 


JP FEATU 


LD IX,ABH 
XOR A 

LD (FH),A 
LD (LH),A 
LD (HH),A 
LD B,5 

PUSH BC 

LD DE, (LXH) 
LD A, (FXH) 
LD B,A 
CALL MULCO 
PUSH HL 
PUSH AF 

LD DE, (LYH) 
LD A, (FYH) 
LD B,A 
CALL MULCO 
POP BC 

POP DE 

ADD A,B 
ADC HL,DE 
LD D,L 

LD E,A 

LD A,D 

CP 127 

JR C,REPOS 
LD A,E 

CPL 

ADD A,1 


3NB: Last ATTRI left IX pointing to TABA3 


3;Moor here 


3Set lake level so we cannot 


function: 


3Point to table of height coefficients 
jA = 0 

jInitialise 

3the 

3sum. 

3No of coeff pairs in table 

3Save loop counter i 

3Get 

3x-coordinate 


3HL.A = a[i]*x, point IX to b[i] 


3Get 
3y-coordinate 


3HL.A = b[i] * y, point IX to a[i+1] 
3DE.B = a[i] * x 
3HL.A = a[i]x + b[ily 


3D.E = result mod 256 
3MSB 
3Iif in right half of triangle 


j;then fold over (ie, negate D.E) 
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REPOS: 


LD E,A 
LD A,D 

CPL 

ADC A,@ 

LD D,A 

LD HL, (FH) 
ADD HL, DE 
LD (FH),HL 
LD A, (HH) 
ADC A,@ 

LD (HH),A 
POP BC 
DINZ HLOO1 
RET 


;D.E = 256 - D.E 
3Add into overall sum in FH,LH,HH 


3Retrieve loop counter, i 
3Next i 


3Multiply coord DE.B by signed coeff pointed by IX 
3;Result in HL.A 


MULCO: 


ENDCO: 


SUBCO: 


ADDBT: 


SUBBT: 


XOR A 

LD H,A 

LD L, A 

LD C, (IX+0) 
BIT 7,C 

JR NZ,SUBCO 
CALL ADDBT 
CALL ADDBT 
CALL ADDBT 
CALL ADDBT 
CALL ADDBT 
CALL ADDBT 
CALL ADDBT 
RR H 

RR L 

RRA 

INC IX 

RET 

CALL SUBBT 
CALL SUBBT 
CALL SUBBT 
CALL SUBBT 
CALL SUBBT 
CALL SUBBT 
CALL SUBBT 
JR ENDCO 
RR H 

RR L 

RRA 

RR C 

RET NC 

ADD A,B 
ADC HL,DE 
RET 

RR H 

RR L 

RRA 


5A = 0 


3Get coeff afi] or b[i] 
3Signe 


37 times 


3Point to next coeff, b[i] or a[i+1] 


37 times 
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RR C 

RET NC 
SUB B 

SBC HL,DE 
RET 


3Point features, flags & codes 


FEATY: 


DEFB @ 3index to 1..63 array of probabilities of 


3each feature type (@..11) 


CODE: 


FEATU: 


NOFEA: 


NOCOD: 


DEFB 32 32-letter flag code, 

DEFB 32 3spaces if no flag 

DEFB @ 

LD A,(TERSY) ;Get observer's terrain type 
CP 7 

JR NC,NOFEA 3No features in lake or town 
LD IX,TABA1-5 ;Re-use existing coeff tables 
XOR A jA = 0 

LD (FXH),A 3Features to be visible in 8x8m area: 
LD (FYH),A 

LD A, (LXH) 

AND OF8H 

LD (LXH),A 

LD A, (LYH) 

AND OF8H 

LD (LYH),A 

CALL ATTRI j;Results in FH,LH,HH 

LD A, (LH) 3NB: FH = @ so can't use that 
AND 097H 310010111 

CP 128 

JR NZ,NOFEA 

CALL ATTRI 3NB: Last ATTRI left IX at TABA2-5 
LD A, (LH) 

AND 63 3Indexing 1..63 array 

LD (FEATY),A 

LD A, (LH) 

AND 64 

JR Z,NOCOD 31 in 2 chance of a flag 

CALL ATTRI 3NB: Last ATTRI left IX at TABA3-5 
LD A, (HH) 

AND 15 j;Range A..O [in practice A..C] 
ADD A,65 3To ASCII letter 

LD (CODE),A 

LD A, (LH) 

AND 15 3;Range A..O 

ADD A,65 

LD (CODE+1),A 

RET 

XOR A jA = 0 

LD (FEATY),A 

LD A, 32 

LD (CODE),A 

LD (CODE+1),A 

RET 


j;Local data: 
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FH: DEFB 
LH: DEFB 
HH: DEFB 


4) 
2) 
4) 


3;Tables of coefficients: 


ABH: DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
TABA1: DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
TABA2: DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
TABA3: DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
TABAD: DEFB 
END 
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S=( 


PotS — Scere dsplon po. GAOT 


Frus wer, wrotulte ot tnrvaleed cn thie secladie 


DISPLAY Ag ocr covtie | am 
ADS containd ad desete of danse Moringa & fnenn pt decerplinns, itahte, 
tenella wilh, tun subrrtiua, TVANdD £ MU2I2, 


SHOFEA dinplane a prick [if any) ad Ui flag lef any) y 
DIRT ww ener i egg neta gech 


Ove 


3 ADS - address tables + 2 subroutines 
ORG 62350 
3 Graphic for grass: 
GRASS: DEFB 32 3 Paper green, ink black 
DEFS 8 3 8 zero bytes - pure paper 
DEFB 1 3 Offset in attr file to next byte 
DEFB 32 
DEFS 8 
DEFB 1 
DEFB 32 
DEFS 8 
DEFB @ 
3 The next 2 tables are indexed by 2t, where t = terrain type, @..5 
ADSYM: DEFW 64600 ; Table of graphics 
DEFW 64400 
DEFW 64100 
DEFW GRASS 
DEFW 64200 
DEFW 63900 
ADOBS: DEFW 6360@ ; Table of terrain messages 
DEFW 63604 
DEFW 63610 
DEFW 63615 
DEFW 63626 
DEFW 63621 


BEAR: EQU 63431 

SINB: EQU 63432 

SINCO: EQU 63125 

TURND: LD A,(BEAR) ; Compute & store sin & cos of new bearing 
CALL SINCO ; after a turn 
LD HL,SINB 
LD (HL),D 
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INC HL 
LD (HL),E 
RET 
3 Multiply +ve 2-byte 


fixed-point no in D.E by 1-byte signed fraction in C 


3 [+/- .7 bits], to get signed 2-byte fixed-point in H.L [+/- 7Bits.byte]. 


3 NB: D.E not changed 


MUL212: LD A,1 3 
BIT 7,C ; 
JR Z,POS212 
LD A,C ; 
NEG : 
LD C,A 
LD A,255 ; 
POS212: LD B,7 3 
LD HL,@ 
AND A ; 
LO212: RRH 
RR L 
OR C 


JR NC,EN212 ; 
ADD HL,DE ; 
EN212: DJINZ Lo212 ; 


RR H ; 

RR L 5 

CP 255 ; 

RET NZ 3 
NEG2: LD A,L : 

CPL : 

ADD A,1 ; 

LD L,A 

LD A,H 

CPL 

CPL 

ADC A,@ 

LD H,A 

AND 8@H ; 

RLCA 

NEG 

LD B,A ; 

RET 

END 


3 NEG2 may be used as 
3 to complement HL 


Sign +ve until otherwise 
If sign(C) < @ 


then 

complement and 

set -ve sign 

for result 

7 bits left in C to shift & add 


Clear carry 


If bit set at right of C 

then add DE into result. NB: Carry affected 
NB: Loop test preserves carry 

Shift to put any 

carry into result 

If sign (in A) +ve 

then done 

else take 

twos complement 

of result 


Select bit 7 (sign) 


HL >= @ => B = @ else B = -1 


general subroutine | - + | 
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3 SHOFEA - show point feature & flag 

ORG 62495 
TQ: EQU 63757 
SHOFE: LD HL,FIN1 


LD B, 


12 


SHLOO: CP (HL) 


JR C, 


INC2 


INC HL 
INC HL 


DINZ 
RET 


INC2: LD DE,FIN2-FIN1 


SHLOO 


ADD HL, DE 


LD E, 


(HL) 


INC HL 


LD D, 
LD HL, 23283 


CALL 
RET 


(HL) 


T@ 


B) 


Bd) 


12 feature types, counter 
If feature index in A > table entry 
then this is the feature type 


Word-based table => 2 increments 


HL points to address of text string 


Point to attr file, line 23, column 19: 


22528 + 32 * 23 + 19 


3 Index1: probability table for point features (see part 4) 


FIN1: DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


11 
21 
24 
29 
31 
35 
42 
53 
55 
60 
62 
64 


3 Index 2: string addresses 


FIN2: DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
END 


63631 
63642 
63648 
63722 
63727 
63662 
63709 
63654 
63671 
63698 
63676 
63687 


"Depression" 
"Knoll" 
"Niche" 
"Pond" 
"Water tank" 
"Building" 
"Rock outcrop" 
"Boulder" 
"Ruin" 

"Mine shaft" 
"Root stock" 
"Sheep fold" 
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ORG 62050 3 DISPL - display current scene 
CHLIN: DEFB @ 
SCLIN: DEFB @ 
TURN: CALL TURND 


DISPL: LD A,12 3 Paper blue, ink green 
LD (ATTR@),A 
CALL CLS 3 Clear screen 
LD A,2 3 1st col to display (tree can overhang col 1) 


LD (COLUM),A 
LD A, (BEAR) 3 Get straight-ahead bearing 
SUB 36 3 Look 4.5 symbol spaces left 
LD (DBEAR),A 
DLOO1: LD A, (DBEAR) 
CALL SINCO 3 DE = sin & cos of horizon direction 
LD (SIND),DE ; Save both sin & cos 
LD L,D 3 Move sin to L 
CALL DTRIG 3 Compute rc * sin bt 
LD DE, (FXT) 3 Get observer's x in AD.E 
LD A, (HXT) 
ADD HL,DE 
ADC A,C 3 xh = xt + rc * sin bt 
LD (HXH),A 3 Horizon position 
LD (FXH),HL 
LD HL,(SIND) ; Get sin & cos of horizon direction 
CALL DTRIG 3 Compute rc * cos bt 
LD DE, (FYT) 3 Get observer's y in AD.E 
LD A, (HYT) 
ADD HL,DE 
ADE A.C 
LD (HYH),A 
LD (FYH),HL 
CALL TERRA 3 Get height, terrain, feature for horizon point 
LD A, (FHH) 
LD C,A 
LD A, (FHG) 
SUB C 
LD HL, (LHG) 
LD DE, (LHH) 


SBC HL,DE 3 HL.A = (hg-hh)*sh = ht difference, sh = 1 => range 
-23..24 

LD BC,24 

ADD HL,BC 5 HL.A += 24, range 0..47 

LD H,L 

LD L,A 3 H.L = ht diff, range 47..0 

LD A,H 

SRL A 3 A = ht diff, range 23..0 

LD (CHLIN),A 3; Character-sized position 

XOR A >; A= 0 


LD (HFLAG),A 3; No flag until shown otherwise 

LD A, (CODE) 

CP 32 3 Is flag visible from horizon point? 
JR Z, NFLAG 

LD A, (OBSCO) 
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NFLAG: 


NG@: 


NGRAF : 


CP 32 

JR NZ,NFLAG 
LD A,1 

LD (HFLAG),A 
LD A, (TERSY) 
LD C,A 

LD B,@ 

LD HL,ADSYM 
ADD HL, BC 

LD E, (HL) 
INC HL 

LD D, (HL) 

LD A, (CHLIN) 
LD H,@ 

LD L,A 

ADD HL,HL 
ADD HL,HL 
ADD HL,HL 
ADD HL,HL 
ADD HL,HL 

LD A, (COLUM) 
LD B,@ 

LD C,A 

ADD HL, BC 

LD BC, 22528 
ADD HL, BC 

LD A, (TERSY) 
CP 6 

JR Z,NGO 
PUSH HL 
CALL G@ 

POP HL 

LD A, (TERSY) 
CP 10 

JR Z,NGRAF 
LD DE,31 
ADD HL, DE 

LD DE,62350 
CALL G@ 

LD A, (HFLAG) 
CP @ 

JR NZ,NGRAF 
LD DE,34 
AND A 

SBC HL,DE 

LD A,H 

CP 91 

JR NC,NGRAF 
LD (HL), 3BH 
LD A, (COLUM) 
CP 28 

JR NC,ENDIS 
ADD A,3 


B) 


Bd) 


B) 


I 
. 
I 
pd 
I 
. 
I 


B 


; Has observer got a flag too? 


; Horizon flag to be shown 


Get terrain type (x 2) 


BC = word offset from ADSYM, graphics table 


DE points to graphic 
A = row, @..23 


HL = row, @..23 
x 32: 


HL = 32 * row 


BC = column 

HL = 32 * row + column 

Start of attributes file 

HL points to row & col in attr file 
Terrain symbol 

Grass => no graphic 


Display graphic 


Lake => no flag on horizon nor ground bar 


HL points to start of ground (grass) in attr file 


DE points to grass in ADS 
Display grass 


; HL points to horizon flag position 


If off screen don't show it 


; Paper white, ink magenta 
; Get column 


If > 28, all done 


Else next column 
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LD (COLUM) ,A 
LD A, (DBEAR) 
ADD A,8 
LD (DBEAR),A 
JP DLOO1 
ENDIS: LD HL,22895 
SET 7, (HL) 
LD A, (TG) 
LD HL,ADOBS 
LD C,A 
LD D,@ 
ADD HL, DE 
LD E, (HL) 
INC HL 
LD D, (HL) 
LD HL,23264 
CALL T@ 
LD A, (OBSFE) 
CP @ 
JR Z,ENDAL 
CALL SHOFE 
LD HL, (OBSCO) 
LD A,32 
CP H 
JR Z,ENDAL 
LD DE,64@00 
LD HL,23279 
CALL G@ 
ENDAL: RET 
HFLAG: DEFB @ 
END 


ORG 62040 ; HIGH - returns int (height) for test purposes 


HEIGH: EQU 62737 


LH: EQU 63011 
HIGH: CALL HEIGH 
LD BC, (LH) 
RET 
END 


B) 


BS) 


B) 


5) 


BS) 


B) 


Next horizon point bearing 


; Next horizon point (loop) 


Line 11, column 15 = centre of screen 
Flash = level marker 
Get observer's terrain type (x 2) 


; Offset pointer from ADOBS, message table 


; DE points to message string 
; Display at line 23 column @ 


Display observer's terrain message 


If no feature at observer, then done 


; Show feature 


If no flag at observer, then done 


Point to graphic for flag 
Line 23 column 15 
Display flag 


Whether flag is visible from horizon point 
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Part 6 - Turning and moving forward 

Two modules: 

SCROLLS - move screen left and right in character sized steps (not pixel sized 
because colours would go funny; colours are in the attributes file which is character 
based). 


MOVE - moves the observer forward one pace (about 1m +/- 10%) and drifts the 
bearing by up to +/- 1 b-degree. 


In scrolling we have to move both the display file and the attributes file. The display 
files is moved first, to minimise the period when the colours might be wrong. 


<——32 ——_> 


ORG 61700 
TURN: EQU 62052 
ATTR@: EQU 63850 
BEAR: EQU 63431 
RIGHT: LD A, (BEAR) 3 Turn right 8 b-degrees 

ADD A,8 

LD (BEAR),A 

LD B,3 3 Scroll left 3 times = 1 symbol space 
LEFLO: PUSH BC 

CALL SCLEF 

POP BC 

DINZ LEFLO 

JP TURN 
LEFT: LD A, (BEAR) 3 Turn left 8 b-degrees 

SUB 8 

LD (BEAR),A 

LD B,3 3 Scroll right 3 times 
RIGLO: PUSH BC 

CALL SCRIG 

POP BC 

DINZ RIGLO 

JP TURN 
BACK: LD A, (BEAR) 3 Half turn, 128 b-degrees 

ADD A,128 

LD (BEAR),A 


SCROLLS - left & right scrolling (panning) 


wee 
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LD B,30 
JR LEFLO 


3 Scroll left 30 times 


3 Start addresses of display & attr files: 


SDF: EQU 16384 
SAF: EQU 22528 


3 Scroll left by 1 character: 


SCLEF: LD HL,SDF 
CALL CLCOL 
LD BC,6143 
LD DE, SDF 
LD HL,SDF+1 
LDIR 
LD BC, 767 
LD DE, SAF 
LD HL,SAF+1 
LDIR 
RET 


3 Clear left column 
3 Bytes to move 

3 Destination 

3 Source 

3 Move display file 


3 Move attr file 


3 Scroll right by 1 character: 


SCRIG: LD HL,SDF+31 


CALL CLCOL 
LD BC,6143 


LD DE,SDF+6143 
LD HL,SDF+6142 


LDDR 
LD BC, 767 


LD DE,SAF+767 
LD HL,SDF+766 


LDDR 
RET 


3 Clear right column 


3 Move display file 


3 Move attr file 


3 Clear column whose top is pointed to by HL: 


CLCOL: LD B,192 
LD DE,32 

CL1: LD (HL),@ 
ADD HL, DE 
DINZ CL1 
LD A, (ATTR@) 
LD B,24 

CL2: LD (HL),A 
ADD HL, DE 
DINZ CL2 
RET 
END 


3 Zero display file (paper everywhere! ) 


3 (Might depend on whether colour TV?) 


3 Reset attributes in attr file 
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ORG 61850 3 MOVE - move observer forward and drift 
BEAR: EQU 63431 
TURND: EQU 62404 
MUL212: EQU 62417 
TERRA: EQU 62580 
SINB: EQU 63432 
COSB: EQU 63433 


EXT: EQU 63434 
LXT: EQU 63435 
HXT: EQU 63436 
FYT: EQU 63437 
LYT: EQU 63438 
HYT: EQU 63439 
FXH: EQU 6344@ 
LXH: EQU 63441 
HXH: EQU 63442 
FYH: EQU 63443 
LYH: EQU 63444 
HYH: EQU 63445 
FHH: EQU 63446 
LHH: EQU 63447 
HHH : EQU 63448 
FHG: EQU 63449 
LHG: EQU 63452 
HHG : EQU 63451 
XF: EQU 63452 
YF: EQU 63454 
FINFL: EQU 63456 
TG: EQU 63458 


TERSY: EQU 63459 
FEATY: EQU 62905 
OBSFE: EQU 63463 
CODE: EQU 62906 
OBSCO: EQU 63464 
DISPL: EQU 6255 


MOVE: LD A,R 3 Get random byte from Z8@ refresh register 
LD C,A 3 treat as fraction to be multiplied by @.1 
LD D,e 
PUSH DE 3 Save fraction while bearing drifts 
LD A, (BEAR) 
BIT 5,C 
JR Z,NPLUS 
ADD A,1 3 Inc bearing by 1 b-degree 
NPLUS: BIT 3,C 
JR Z,NOMIN 
SUB 1 3 Dec bearing by 1 b-degree 


NOMIN: LD (BEAR),A 
CALL TURND 3 Revise sin & cos 
POP DE 3 Retrieve random fraction 
LD C,1AH 3; C = 0.1 
CALL MUL212 3 HL random part of distance to move 
LD DE, @E6H 3 DE fixed part of same = @.9 
ADD HL,DE 3 HL distance to move 
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PUSH HL 

EX DE,HL 

LD A, (SINB) 
ib CA 

CALL MUL212 
LD DE, (FXT) 
LD A, (HXT) 
ADD HL,DE 
ADC A,B 

LD (FXT),HL 
LD (FXH),HL 
LD (HXT),A 
LD (HXH),A 


3 Similarly for yt: 


HMOVE : 
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POP DE 

LD A, (COSB) 
LD C,A 

CALL MUL212 
LD DE, (FYT) 
LD A, (HYT) 
ADD HL,DE 
ADC A,B 

LD (FYT),HL 
LD (FYH),HL 
LD (HYT),A 
LD (HYH),A 
LD HL, YF+1 
CP (HL) 

JR NZ,HMOVE 
LD A, (LYT) 
AND @FCH 

LD B,A 

DEC HL 

LD A, (HL) 
AND @FCH 

CP B 

JR NZ,HMOVE 
DEC HL 

LD A, (HXT) 
CP (HL) 

JR NZ,HMOVE 
LD A, (LXT) 
AND @FCH 

LD B,A 

DEC HL 

LD A, (HL) 
AND @FCH 

CP B 

JR NZ,HMOVE 
LD A,1 


LD (FINFL),A 


CALL TERRA 
LD A, (FHH) 


3 
. 
3 
. 
3 
3 


3 


Save for incrementing yt 
Move to DE for incrementing xt 
sin(BEAR) 


HL = sinb * distance to move 
Adding to xt : get fractional & low parts of xt 
Get high part of xt 


Use sign byte from LU"!" result above 
xt = xt + move * sinb 


New xt will be used to find obeserver's height 


é H is 

ae ee 
he A D> Ee 
A H Mi 


Test for finish: 
Do MSBs of yt & yf match? 


And LSBs, within 4 metres? 


And MSBs of xt and xf? 


; And LSBs within 4 metres? 


If all matched we are at finish 
Set flag for BASIC shell to test 


; Get observer's height and terrain 
; Save height in HG 
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LD (FHG),A 

LD HL, (LHH) 

LD (LHG),HL 

LD A,(TERSY) ; Save terrain type in TG 
LD (TG),A 

LD A,(FEATY) 3; Save feature type 

LD (OBSFE),A 

LD HL,(CODE) ; Save flag code 

LD (OBSCO),HL 

JP DISPL 


Part 7 - Maps 


The first routine in this section, DRAWEFN, is a subroutine for plotting or unplotting 
points in a vertical line according to a binary pattern held in array BAR. This is used 
to draw contoured cross-sections and 3D views (which are essentially repeated 
cross-sections). 


Maps are drawn by calling a standard harness (entry FHEAD) having first poked the 
address of a kernel routine into MADDR from the BASIC shell. Different types of map 
are produced by different kernels. The kernel determines the map content for a 
particular point (x, y), while the harness scans a rectangular area, the definition of 
which has been poked from the BASIC shell: 


X, Y, is top left, to draw the map in normal reading order, not bottom left as set up by 
the user in the BASIC shell. 


A cross-section is actually done by using the VIEW3D kernel with ny = 1 (ie, just 1 
line to draw). 
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PLOT: 
BAR: 
XO: 
Y@: 
LEN: 
PBAR: 


PLOOP: 


BLACK: 
DO: 


PEND: 


XO: 
Y@: 
XL: 
YL: 
XH: 
YH: 
DXL: 
DYL: 
DXC: 
DYC: 
NX: 
NY: 
XS: 
YS: 
XX: 


ORG 61520 
EQU 22E5H 
DEFS 100 
DEFB @ 
DEFB @ 
DEFB @ 

Ld HL,BAR 
LD A, (LEN) 
LD D,A 

LD BC, (X@) 
LD A, (HL) 
CP @ 

JR Z,BLACK 
SET 2, (1Y+87) 
JR DO 

RES 2, (IY+87) 
PUSH HL 
PUSH DE 
PUSH BC 
CALL PLOT 
POP BC 

POP DE 

POP HL 

INC B 

LD A,175 
CP B 

JR C,PEND 
DEC D 

XOR A 

CP D 

JR Z,PEND 
INC HL 

JR PLOOP 
RET 

END 


ORG 61300 
DEFW @ 
DEFW @ 
DEFW @ 
DEFW @ 
EQU 63441 
EQU 63444 
DEFW @ 
DEFW 
DEFW 
DEFW 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


VRVOXVTYWNVOVOOO 


BS) 


DRAWFN subroutine 

Spectrum Rom routine. Enter with B = y, C = x 
Standard contoured line, preset 

Screen position for 

start of line 

Length to plot 


Counter 
BC = y@ * 256 + X@ 


Inverse video (Spectrum system variable) 


Normal video (Spectrum system variable) 


Y = y + 1. No change in x 
If off top of screen 


then no more to plot 
Count point just plotted 


If LEN points done 


then no more 
Next point on bar 


MAPS - harness, scans rectangular area to be mapped 
Start of plot, top left on map 


Start of current line on map 

Current position on map (global coordinates) 

Map increments along scan line, as diagram above 
MAP increments between scans (ie, column) 

No of points in scan line, @..255 or @..31 

No of lines, @..191 or @..23 

Current screen x, @..255 


Current screen y, 191..0 
Current screen character x, @..31 
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YX: 
MADDR: 


FHEAD: 


FLINE: 


FPT: 


FRET: 


3 Next 
NEXTP: 


3 Next 
NEXTL: 


DEFB @ ; 
DEFW @ ; 


LD HL, (X@) F 
LD (XL),HL 

LD HL, (Y@) 

LD (YL),HL 

XOR A 

LD (XH-1),A_ 
LD (YH-1),A 

LD A, (NY) F 
LD B,A F 
LD A,191 3 
LD (YS),A 

XOR A 

LD (YX),A 

PUSH BC F 
LD HL, (XL) 3 
LD (XH),HL 

LD HL, (YL) 

LD (YH),HL 

LD A, (NX) ; 
LD B,A 3 
XOR A 

LD (XS),A F 
LD (XX),A 

PUSH BC F 
LD HL,(MADDR) ; 
JP (HL) F 
POP BC 3 
DINZ NEXTP 

POP BC 

DINZ NEXTL 

RET 


point in a line: 


LD HL, (XH) 

LD DE, (DXL) 
ADD HL,DE 

LD (XH),HL 

LD HL, (YH) 

LD DE, (DYL) 
ADD HL,DE 

LD (YH),HL 

LD HL,XX : 
INC (HL) : 
LD HL,XS : 
INC (HL) 

JR FPT : 
line: 

LD HL, (XL) 

LD DE, (DXC) 
ADD HL,DE 

LD (XL),HL 


Current screen character y, @..23 
Address of 1-point kernel for current map type - 
poke from BASIC first 


Start first line 


No fractional positions 


No of lines 
B = line counter 


Line start on screen (175 for FINEC) 


Start any line 


Work point at line start 


No of points in line 
B = point counter 


Line start on screen 


Do one point 


Get address of kernel for current map type 


and go there 


returning always to here 


Increment character no 
(to handle all map types) 
Increment pixel no 


Do next point 
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LD HL, (YL) 

LD DE, (DYC) 

ADD HL,DE 

LD (YL) ,HL 

LD HL,YX 

INC (HL) 3 Character lines count up from @ at top 
LD HL,YS 

DEC (HL) 3 Pixel lines count down from 191 at top 
JR FLINE 3 Do next line 

END 


Now for some kernels... 


ORG 61240 ; VIEW3D - a map kernel - (MADDR) = VIEW 
HEIGH: EQU 62737 


LH: EQU 63011 
Xe: EQU 61600 
YO: EQU 61601 


LEN: EQU 61602 
PBAR: EQU 61603 
XS: EQU 61318 
YS: EQU 61319 
FRET: EQU 61385 
VIEW: CALL HEIGH ; (LH) = int (height (XH, YH)) 
LD HL, (LH) 
LD BC,204 3; Lake height 
AND A 3 Clear carry 
SBC HL,BC ; HL = HL - lake height 
SRA H 
RR L 
SRA H 
RR L 
SRA H 
RR L 3 HL = HL / 8 
LD A,L 
CP 128 3 If < @ 
JR C,HPOS 
XOR A 3 then A = @ 
HPOS: INC A 
LD (LEN),A 
LD A,(YS) 3; 191..0 
SUB 70 
LD (Y@),A 5; (i@ in BASIC version) 
LD A, (XS) 
LD (X@),A 
CALL PBAR 
JP FRET 3 End of kernel 
END 


The next one, FINEC, is very similar: 
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ORG 61240 
HEIGH: EQU 62737 
PLOT: EQU 22E5H 
BAR: EQU 61500 


FINEC - fine contours kernel - (MADDR) = FINEC 


we 


(In ROM) 


we 


LH: EQU 63011 
Xe: EQU 61600 
YO: EQU 61601 


LEN: EQU 61602 

PBAR: EQU 61603 

XS: EQU 61318 

YS: EQU 61319 

FRET: EQU 61385 

VIEW: CALL HEIGH ; (LH) = int (height (XH, YH)) 


LD HL, (LH) 
LD BC,204 3; Lake height 
AND A 3 Clear carry 
SBC HL,BC ; HL = HL - lake height 
SRA H 
RR L 
SRA H 
RR L 
SRA H 
RR L 3 HL = HL / 8 
LD A,L 
CP 128 3 If < @ 
JR C,HPOS 
XOR A 3 then A = @ 
HPOS: INC A 
LD H,0 
LD L,A 3 191. .0 
LD BC,BAR 
ADD HL,BC 3; HL indexes BAR array 
LD A,(HL) 5; Value to plot, from BAR 
CP @ 
JP Z,FRET 3; IF white, no plot 
LD BC,(XS) ; (XS) in C, (YS) in B 
CALL PLOT 
JP FRET 3 End of kernel 
END 


To make fine contours map from BASIC: 


8500 LET NX=255:LET NY=175:POKE 61322,72:POKE 61323,238: 
POKE 61348,175:GOTO 9500 


and 


6000 CLS:INPUT “Fine or coarse map? [f/c]”;F$:IF F$="f THEN GOTO 8500 
6100 LET NX=32:LET NY=24:POKE 61322,187:POKE 61323,238:GOTO 9500 
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2S 


to = 1000 
4¢ = 300 
dxl = 4 

dnb =o 

dae = O 

dye =-% 
wadds = bILHO 
ne = 199 
my = 100 


for i 
ale 


7-3 


CMAP: 46: 


135 
61322 1%) 
tea bik meddy = bis =3238 — madde =6119T 


= bid00 te LIS23 : ead x : pcke UL, » nak ¢ 


2B2,39S2,%, 0,0,0,0, 4, 0, 9, 0, 0, 0, LF $,2S8, 285, lON, 


©,0,0, oO, 26,239 
uz ws 6ISl4 


pcke bIIL, S (might) fs cae. 


The next chunk of code includes 2 kernels. CMAP is the coarse contour map and 


TMAP is the terrain map. 


HEIGH: 
LH: 
FRET: 
TERRA: 
TATTR: 
TO: 
SAF : 
XX: 
YX: 
LXH: 
LYH: 
TERSY: 
SYMS: 


ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
DEFM 
DEFB 
DEFM 
DEFB 


61088 
62737 
63011 
61385 
62580 
63745 
63757 
22528 
61320 
61321 
63442 
63445 
63459 
man 
56 
mpm 
32 


Wee we we we 


CMAP & TMAP kernels 


Start of attr file 
Character column, @..31 
Character row, @..23 
Global position on map 


Black on white 


Black on green 
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NRIGH: 
CHAR: 


CMAP : 


SHIFT: 


CLOOP: 


SHOW : 


DEFB @ ; 


DE, (LH) 


NZ, SHIFT 
A,E 

204 3 
NC, SHIFT 
E,200 ; 
A, (NRIGH) 
B,A 

SRL D 

RR E 3 
DINZ CLOOP 

LD A,*<' 
ADD A,E 

AND 7FH 3 
LD (CHAR),A ; 
AND 7 5 
ADD A,A 

ADD A,A 

ADD A,A 3 
CP 40 3 
JR NC, SHOW : 
OR 7 3 
LD (TATTR),A 
LD A, (YX) 

LD L,A 

LD H,@ 

ADD HL,HL 

ADD HL,HL 

ADD HL,HL 

ADD HL,HL 

ADD HL,HL ; 
LD A, (XX) 

LD C,A 

LD B,@ 

ADD HL, BC 

LD BC, SAF 

ADD HL, BC ; 
LD DE,CHAR 5 
CALL T@ 


; White 


; Black 


; White 


; White 
; No of 


on magenta 


on yellow 
on black 


on blue 


End of CHAR string, for T@ 


Lake height 


If lake replace with surface (as in TERRA) 


E = height to plot 
Lowest height band "letter" 


No characters above 128! 
To display using TO 
Paper colour 


Moves paper colour to bits 3, 4, 5 
101000 - check contrast for letter 
Ink black 
Ink white 


5 times: HL = HL * 32 


HL points to attr file position for T@ 
Point to string to display 
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TMAP : 


JP FRET 3 End of CMAP kernel 


LD HL, (LXH) 


LD HL, (LYH) 
LD (TEMPY) ,HL 
CALL TERRA 

LD HL, (TEMPX) 
LD (LXH),HL 
LD HL, (TEMPY) 
LD (LYH),HL 
LD A, (TERSY) 
LD C,A 

LD B,@ 

LD HL,SYMS 
ADD HL,BC 

JP TEND 


3 Terrain map kernel 
LD (TEMPX),HL ; Save coordinates because FEATU alters them 


3 Rest of TMAP code went to start of module because out of space to next 


Bd) 


TEND: 


module 

ORG 61088 
LD A, (HL) 
LD (CHAR),A 
INC HL 


3 Character to display 


LD A, (HL) 3 Attributes 


JR SHOW 


TEMPX: DEFW @ 
TEMPY: DEFW @ 


+ 


END 


TERBD (a bermel for MAPS : (maddr):= B34). 


bk. equ 6344+ ( 
Lye equ 63444 
tires eye 63459 
cok delus sb 
defo $2 
dfs Ze \7 
dofs 4% 
defo 7 
defo LF 4? 


wo oa 61240 
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ep7e = RD: 


x 
& 
2 


2 
8H 239 
4s 

p 21% e€2 
LL, sapere ohh 


as 
. 


ferER £e eK ReEre 
a 


sa 


bo$s ’ a, (4) 
6G b2%S+ Ld (23695), a yATK-T . 
je veo 5 To vEEWSD hemel , i ali naa 
J 


Co > >? 


x 


5SO-+- Toe type 


‘ 
T1946 10.37. 4S ‘ 
$7 a | a. 
4 239 234 cro dE aia 

\ \ 

61243 bI240 
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x a 
7 I “ a 
— ey 42 i T3643 Arrg_P “oie 


Pak © - The complec fartet . oo 
The fartot can be clrarged by Mireg He tables f cocfficinls oduck 


ae ued in lence 4@ntrwtenn (see Pat u) This deco not aller Ho 


ok 
7 
7 
: 
A 
: 
He 
He 


ail te We so-called complee Unvolves the ae 
madiine cana « ie 
EL. a ROI liven 60500 and 6075S - 
ean nae oe ipeerat im Yotrn king He wanoal fet 
Ate». 4-2) This means 
fs Hel Ma Si a yoting mi 

hi = fete ga Rage lia -12¢) 

pal tailed toda ws 

h’(( a; 2 +b; 4) mod 256) s 

in the profile tale (army) fo for H! = oy h 
he ee a ee a a 
page 8 iB therefore Kolaced by the fellowing ater the waar vials 


covnp | ld hid > b= role med 256. 
ld be,  Poink & ast ak boS00 . 
4dd IW be Treat 
as arr 2 
AL b&¢ 
dA Md, (4) 
add Ih, be 3 Add inks atm for H" 
4 (dd), A 
poe be - Kebiave lene comes, i PRES 


Ajnz hte | sNeA ns 
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toy 


124 


133 


134 
133 


4s 


138 7 a ae 

137 67 4s 

135 lo = loo 0 mh 
133 62 26 dikes} 
129 Sg 46 

123 S4¢ 46 

1g $2 a K4 

Mt 1S $2 twos =. 72 

los SY 4o 

lol Ss gS 

2 SB Bo 

48 s4 7s 

10 Bo 62 nto =r TI 

Re 63 67 

$2 4 63 

73 és bo 

14 is Sg | 
7 as 6S us SS pene 
69 66 32d ee 
67 b¢ ee 
6? 67 ee 
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1lo 


125 


130 


35 


I4o 


lus 
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SOT wpPpnrpP Pwnnw y 


(be 


16S 


\7o 


25 


Igo 


18S 


140 


19s 


leo 


20S 


220 |S. See 


22s°_2S eee 


230 +I eed 


2¢S 


zZso 


235 
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Part 9 - The BASIC shell 


| have not retyped this. You might get the digital version from World of Spectrum (the 
page for The Forest) because they have TAP format files for use with Spectrum 
emulators. They should enable the BASIC source to be seen once loaded. This 
would not work for assembly files of course because only the assembled machine 
code is present. Even if you disassembled that you would not have much clue as to 
how it works without my comments. 


| clears boo000 
Zs prnk af 3,9 5 "THE SokEST" 1 pik of $2; "A seualghe ee "A 


a hea ad : yh ken elf 


4 than ‘Lee seul) 


zo def f. h(x) = int ( ink (2 + 65) /256) ___‘[msé ef ») 

25 dof fn Lod) = H€ fet+-S) -f{r.h6d «256 7 ‘(eSB of =) 

ee dif fn ioe) = peek xe 4256 « peck (xx+1): ____*(eserdehe’ 
def’ fu pl) = peck x= (256 x (eek > >127)) “Cogred bfe 


\\ 


_ —128.-127) 

Selle waza se ! 
yo dot fn j4- ( pecle 2) /256 + peak [oc+l) + 2b *peceke (et2): 
def fr £00) = se ok (26) "(fener 


sas PS (as in Specie wdanal)! _ | ee 
wo def fa om ayy) = (ery rabelemg fo 
| bo def f ul) = (65536 « peok 22674 +256 * pack 23473 


| + peck 23472) /sd ge 
| vo def fa EL) = fr me ( fred), fQ) i ee 
‘Sek deck: rs mee 


egos pla lec pk 


40 Ub Aset=h : Lk fio" ," jak 


_ | " " ' ol at 
pik ak IS,% "She ke tae 4d 42 6) co 7 | 
pause 200 ? siicreaate dane 
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eh bread be wt At Crd prordules : —— 
Ut xaltrp = b3es0: bh ucL=e2gs2 
lt wink = £3298 : bt uhid. = L200 — . 
kt ulin, < 62052 : bt udizel = 62055 
Wt unoe =< 61950 : eh ubeck = E1740 = 


3co0 
x 4 10 


$20 


‘n aft = 62 44k » lb ahh = 63447: Lb ALL = zy 
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Memory map for assembly parts of The Forest 


See also page 24. 
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LOONY ZOO Arcade escape game £5.95 PHARAOH'S TOMB Adventure £4.95 KNIGHT'S Q 
COLDITZ Adventure £6.95 THE FOREST Orienteering simulation £9.95 


PHIPPS ASSOCIATES (isisston toad, Evel Surrey KT19 
172 Kingston Road, Ewell, Surrey KT19 OBR 
Telephone 01-393 :0283. 24 Hour answering. 
Prices include postage (outside Europe add £1.00 per item). Access and Visa cards welcome 


PHIPPS ASSOCIATES 


172 KINGSTON ROAD, EWELL, SURREY KT190SD TELEPHONE: 01-393 0283 
PRESS RELEASE 


"The Forest" is the title of a new program released by Phipps 
Associates for the 48K Sinclair Spectrum, which is certainly 
different from anything seen before for this versatile computer. 
The program simulates the terrain as seen by a runner competing 
in an orienteering event. With every step or change of direction 
the scene changes to reflect the movement through the 


countryside. 


Armchair running might seem a contradiction in terms, but the 
program can be enjoyed at several levels. It is a very enjoyable 
game in its own right, trying to 'run' round the course in a new 
best time, without falling into the lake or getting lost. For 
the orienteer it is a valuable training aid to hone up during the 
winter months on his map reading techniques so as burst forth 
next Spring ahead of the field. The main techniques which it 
teaches are those of "aiming off" - heading for a more prominent 
feature which cannot easily be missed instead of the control 
point itself; also "contour following"- running at a constant 


height so as to follow a contour line drawn on the map. 


One course is preset in the program, but other courses can be 
made up using the course planner's menu and saved on tape for 
later use. Two different types of terrain are also known to the 
program. The second type is more like the terrain of 
Scandinavia, the home of orienteering. For the Geography student 
there is also much of interest, since features are included for 
drawing three dimensional diagrams of the terrain, contour maps 
and feature maps. The territory known to the computer is not 
confined to that covered by the map included with the game - it 
extends 37 kilometres around the map in every direction. Would 
be map makers can practise by mapping some of the adjacent 


J. G. W. PHIPPS, MA,AMBIM,MBCS : T. R. TOMS VAT REGISTRATION No. 339 8307 29 
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squares. All of the Scandinavian territory referred to above is 
unmapped - there may be elephants lurking in the undergrowth, who 
knows? Geography teachers will also find the veay ean 
invaluable for teaching the relationship between maps and the 
actual countryside, when weather or other factors prohibit actual 
field work being done. 


The author Graham Relf is a Physics graduate of Imperial College 
London and St. Andrews University. He works in the computer 
field on software image analysis. His hobbies include map making 
and orienteering and he produces special maps for orienteering 
events including the British Championships in 1981. He is at 
present preparing the map for an international orienteering event 
to be held in Northumberland in 1985. 


The game comes packaged in a custom built plastic folder with a 
32 page book of instructions, a special four colour map drawn 
according to orienteering conventions and the program tape 
itself. The program is priced at £9.95 retail. 


For more information please contact: 
John Phipps 1/393/8283 (Home Epsam 28543) 


Trvor Toms @1/393/8283 (Home Aylesbury 27846) 
Graham Relf (Home Prudhoe 325983) 
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PCN PRO-TEST 
me SOFTWARE pe 


Bob Chappell takes a crash course in orienteering in the comfort of his own front room. 


Into the Forest 


certain East London soccer team. 

Maps were involved somewhere along 
the line, yet more than that I could not 
say. The ignorance is now resolved and I 
am a changed man. I have been through 
The Forest. 

As you're probably wondering what on 
earth I’m on about, let me explain in one 
word — orienteering. The instrument of 
my education was a program called, 
unassumingly, The Forest. If you know as 
little about orienteering as I did, then this 
program is probably the best practical 
introduction to the sport you could find. 

The Forest is a simulation of the sport 
of orienteering. With it you can travel 
miles through the toughest terrain with- 
out ever leaving your fireside chair. 
Orienteering can most simply be de- 
scribed as car rallying on foot, being a 
cross-country race over difficult terrain, 
often forest, with the extra dimension of 
having to navigate your own course. 

Armed with a special marked map and 
a compass, you have to plot and follow 
your route between a number of control 
points from the start to the finish. At 
each control point, a control card is 
marked as a Verification that all the 
correct checkpoints have been visited. 
The art lies in successful map reading as 
much as being fast on your feet. 

The program is intended as a training 
aid for practising the techniques of orien- 
teering and can be used in teaching the 
understanding of maps and their rela- 
tionship to the physical world. It also 
happens to be a very entertaining and 
demanding sport simulation in its own 
right and will undoubtedly appeal to 
those games-players who like their plea- 
sures to be more cerebral. Tackled as a 
race, yomp or steady stroll, it offers many 
interesting challenges during the course 
and much satisfaction on successful com- 
pletion. 

A detailed map of the course is sup- 
plied with the package. The screen views 
the terrain directly ahead. All visible 
features (trees, towns, lakes, etc) are 
shown on the horizon which is six metres 
away. The view covers a 100 degree 
sector, 50 degrees to each side of the 
centre. Movement through the country- 
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side is controlled by the cursor keys. 
Pressing the left or right arrow key faces 
you 11.5 degrees to the left or right 
respectively. Pressing the down arrow 
causes a 180 degree about-face. The up 
arrow sets you moving forward, each step 
being about 1 metre. To stop running 
press any key except the up arrow. 

The direction you are facing can also 
be changed by altering your beatings; 
these can be taken and changed at any 
time. With every change of direction, the 
display is updated accordingly. A list of 
the control point codes and descriptions 
can be displayed, as can your control card 
which may be punched at any control 
point. The time elapsed since you started 
off is displayed on request. 

Assistance can be obtained by calling 
up a menu and getting your current 
co-ordinates, enabling you to verify your 
position against the map. Any part of the 
terrain can be displayed as terrain type, 
as contours, as a cross-section, as a 
three-dimensional view, or can be scan- 
ned for point features. These features are 
not there just to get you out of a jam but 
are intended to instruct by showing the 
relationship between the map and the 
ground in a variety of ways. These 
features are most impressive and geogra- 
phy teachers could find them invaluable 
as a teaching aid. 

You can give up before you've finished 
— the display tells you which of the 
control points marked on your card are 
correct or missing. There is an option to 
try out the same course on a more 
complex forest, which is considerably 
more difficult. 

One might think that having completed 
the course once or twice the challenge 
would disappear. Not so, for the author 
has provided a facility to set out your own 
course over the mapped area. There are a 
large number of control points laid out in 


_ the terrain, only a few of which are used 


in the preset course. By following a 
simple question and answer menu, you 
may use any of these control points to 
construct your own course. The only 
restriction is that the start and finish 
points must be those used in the preset 
course. 

Being able to design then save these 


courses to tape extends the interest value 
of the program indefinitely. With the 
additional element of competing against 
the clock and the various facets of the 
mapping aids, the program offers vast 
scope for entertainment and instruction. 


Presentation 


The whole package has the hallmarks of 
quality and professionalism. The pro- 
gram comes on cassette packed in a large 
video-style case. The program is copied 
to both sides of the cassette and it loaded 
first time, every time. Inside the case is 
the printed map. It is very well produced 
and the scale and legends are clearly 
marked, as is the course. 

The 32 page book that comes with it 
provides an introduction to orienteering 
and covers all the features of the program 
clearly and concisely. There are helpful 
diagrams complementing the text which 
assist in understanding trickier concepts 
such as map orientation for three-dimen- 
sional displays. 

Although I knew precious little about 
orienteering before I picked up this book, 
I found that I could quickly become 
proficient in using the program effective- 
ly and, more to the point, understand 
precisely what was going on and why. 
The book is lacking in two places only — 
in setting up your own course and in 
restarting the program. Apart from that, 
the documentation, like the program, is 
first-rate. 


Getting started 


Although the program is very easy to 
operate, you are well advised to study the 
manual before plunging into The Forest. 
Of particular importance is the recom- 
mendation to use a protractor for taking 
bearings on your map. The manual gives 
invaluable advice on navigational techni- 
ques — following boundaries, counting 
paces, lining up on landmarks, checking 
bearings, etc. I ignored this expertise to 
start with and, although I had no prob- 
lems in using the program and made 
considerable progress across country, I 
ended up way off course. 

On running the program, you are 
immediately presented with a colourful 
view of trees and part of a town. This is 
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the starting location. Typing shifted B 
shows your current bearing and invites 
you to enter a new one. Having done 
this, pressing the upward arrow sets you 
off at a steady pace in the direction 
selected by your bearing. The scene is 
quickly updated with every step taken. 

In real life, you would be almost 
certain to drift slightly from your set 
course, and since the program emulates 
this tendency it is worthwhile checking 
your bearings at regular intervals. Failure 
to do this had me missing the first control 
point and having to retrace my steps. 
Pressing any key other than the upward 
arrow causes you, and the displayed 
scene, to remain motionless — but time 
marches on. Pressing the left or right 
arrow key while moving has the scene 
sliding smoothly sideways in the desired 
direction, 

The manual clearly explains the dis- 
played symbols and offers advice on 
navigating for the control points. With 
this guidance, I found it very easy to get 
started and soon had the first three of the 
12 control points stamped on my card. It 
was not long after that that I became 
hopelessly lost and had to resort to 
‘cheating’ by calling up the assistance 
menu. This put me back on the right 
track, although I had wasted a lot of time 
looking for the control flag in the wrong 
place. 


In use 

The graphic display, with its representa- 
tions of thicket, houses, moor, grass, 
lakes and buildings, gives a clear impress- 
ion of the terrain before you. Eye level is 
represented by a central square and, as 
the scene varies in height, it is easy to 
determine whether you are going uphill 
or down. Colours are used naturally and 
effectively. 

The contour map option allows you to 
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select a fine or coarse map of an area. If 
the latter, the contour interval can be 
chosen and the resulting map coloured 
and lettered (the higher the letter in the 
alphabet, the higher the contour). Maps 
can be scaled or drawn covering a given 
width and height. The orientation of the 
map can also be specified. 

Mapping the terrain gives a coloured 
and lettered representation of the area, 
each letter repesenting a type of terrain 
(eg g for grass, m for moor, etc). 

The point features option allows the 
scanning of a particular area. The display 
is exactly how you see it when in the 
normal mode of traversing the country- 
side. The scan runs up and down the area 
in raster scan fashion, covering a strip at 
a time, just like a lawn mower. The scan 
displays the co-ordinates at every step 
and halts at any section containing any 
point feature (knolls, depressions, boul- 
ders, etc) within it — useful for checking 
out the names and locations of the 
control flags. 

A cross-sectional view of an area can 
be taken and a three-dimensional view of 
a particular area can be obtained. In the 


The ordinary contour map. 
latter, being able to specify the orienta- 
tion of the view is especially useful. 

Setting up one’s own course is simple, 
but you have to know the names and 
associated descriptions of the control 
flags you are going to use. Since these can 
only be found by exploring the terrain 
(they are not marked on the map or listed 
in the manual — that would spoil the 
fun), you need to build up this list 
yourself. You can’t enter new flags or 
descriptions. Co-ordinates of the control 
points for your own course do not need to 
be specified, only the flag codes and 
associated descriptions. You can have up 
to 20 control points on your course. 

Reliability 
The single key commands and menu of 
options make the program easy to use. 
When you have completed a course, your 
card is displayed along with the time, 
markings and number of times you 
cheated. At this point the program is 
halted by a STOP statement. If you wish 
to have another race, the manual tells 
you to type in GOTO 4. 

The program loads in two sections — 
what the manual doesn’t say is that you 
should rewind the tape to the beginning 
of section two (or even to the beginning 
of the reel) before executing the GOTO 


A full colour map of 

otherwise the program will hang, not 
being able to find that section to load. 
One might just as easily power off and 
on, and reload from scratch. 

Punching your control card with the 
wrong flag code or against the wrong 
control point is possible, but then this 
would be possible if you were really 
orienteering. It is necessary to use the D 
option to check the control codes and 
descriptions before punching your card. 

Don’t think you can cheat by learning 
the codes for each of the course points, 
Punching them out on your card and 
going straight to the finish. The program 
won't let you punch a control on your 
card unless you are close by the flag in 


question. 
Verdict 


An exceptionally absorbing program and 
one that is certain to sustain one’s interest 
over a long period of use. If you are 
looking out for a program that is original, 
entertaining, instructive, intellectually 
satisfying and has an unlimited interest 
span, then I unreservedly recommend 
The Forest to you. I just hope that this is 
but the first in a long series of orienteer- 
ing programs from Mr Relf and Phipps 
Associates. 
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48K ZX SPECTRUM ADVENTURES - PICTURE GRAPHICS AND COLOUR 


You are a Knight of Camelot, 
searching for Merlin’s lost trea- 
sure. On your way you will 
discover the Witches’ Tower, 
rescue a Princess held by the 
wicked Wizard of Trill. £5.95 


You discover the entrance to an 
ancient pyramid blocked by a 
rock. Once inside, you discover 
fire rooms, ice rooms and other 
traps set by the builders to 
protect the Pharaoh. 


A rope above a rock fissure is 
the only way into this Magic 
Mountain, or is it? Legends tell 
of vast stores of treasure but 
also of poisonous spiders, lizards 
and magic at work. £4.95 


16K ZX SPECTRUM GAMES AND PUZZLES 


It is nearly dawn, you are 
poaching rabbits in a field of 
carrots. See how many you can 
bag undetected by the game 
keeper. Highly original arcade 
style game. £4.95 


To find the Black Planet you need 7 
pieces of the key each hidden on 
different planets, and needing dif- 


The cassette of the book. 
Contains six games (including 
Castle Walls, Great Fire of 
London, Reversi) machine code 
assembler, disassembler, £5.95 


Book available separately £6.50 
48K ZX SPECTRUM GAMES 


You are Spectrasses, battling in 
the arena with Gorgon, whose 
Stare can turn you to stone. To 


The traditional game with superb 
screen presentation. Score points 
by making the two ends add toa 
multiple of five or three. The first 
one to reach 72 points “nr 
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Three dimensional simulation of 
the sport of orienteering. Display 
is continuously updated as you 


An old deserted mining town 
holds the clues to the location of 
a lost gold mine. Once in the 
mine, your problems are not 
over - the roof creaks alarmingly 
and might cave in. £4.95 


The computer breaksandshuffles 
a two by two coloured square, 
whilst you watch the moves it 
makes. You must then unscram- 
ble it to reassemble the original 
squares. Machine coded. £4.95 


16K ZX81 


For the ZX81, three adventures - 
black and white text. Magic 
Mountain, Pharaoh’s Tomb, 


ferent puzzles to be solved. On the recover the lost chalice, you run. Ideal for map reading Greedy Gulch, as described 
way, you fight off the pirates who —_ must also win a swordfight with _ practice. Instructions, colour above. Superb value for money. 
get steadily more desperate. £5.95  Grang, inside his cave. £4.95 map and cassette. £9.95 £5.00 
\ 
Dept G “T EM463 (No stamp) 
PHIPPS ASSOCIATES #25, jc ettBooe it 
Telephone 3 0283. 24 Hour answering. nye 


Prices include postage (outside Europe add £1.00 per item). Access ai 1 cards welcome 
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FORESTRY 


Calling all Forest devotees, 
Have you been amazed to 
discover that yo never run off 
the edge of the action 
although your map is only 
2Km by 2Km? Then grab 
pen and paper and 
immediately send off for your 
Complex Forest map from 
Phipps Associates, 172 
Kingston Road, Ewell, 
Surrey (or phone 01-393 
0283). 


PARK ITIN 


THE ROM 


Parker has moved into the 
home micro market with 
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NEW FACE FOR THE SPECCY 


Ram Electronics, the Fleet- 
based hardware company, 
recently announced the 
launch of a new ‘multi- 
purpose’ Spectrum interface. 
The device, modestly 
named the ‘Ram Turbo’, 
accepts Sinclair ROM 
cartridges and two joysticks 
of the standard 9-pin ‘D’ 
connector type. At this point 
you may be thinking this 
sounds rather like one of 
Sinclair’s own Speccy add- 
ons — and you’d be right. 
Although the Ram Turbo 
is £3 more expensive than the 
ZX Interface 2, it looks more 
futuristic and has a couple of 
extra design features. A 
unique built-in safety device 
prevents the user from 
inflicting expensive damage 
on the Speccy — the power 
cable can only be connected 
once the interface is in place. 
The Turbo also offers a full 
expansion bus (unlike 
Interface 2) which means 
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The futuristic Ram Turbo incorporates a unique built-in 


safety device. 


there are no restrictions as to 
what other bits you may be 
thinking of bolting on the 
back. 

“We expect to sell over 
50,000 Turbos in the first 
three months alone,” says 
technical director Martin 
Shoebridge. “Technically it’s 
miles ahead of any 
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competitors (surely not a dig 
at Uncle Sir C!) but most 
people want it yesterday — 
not next month.” 

We trust this isn’t just the 
latest contender for the 
Flying Pigs department. 
More information, etc., from 
Fes Cet on 02514 


HACKERS 


For all of you who bought 
The Hobbit, avidly read the 
book, tried to play the game 


and were still confused, 
RAalL Avene LI Aven hace 


Further information 
The Forest on the World of Spectrum web site. 


A 1984 review of the original version, in Crash magazine. 
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